(regexp-opt): Bind completion-regexp-list to nil.

diff --git a/lisp/emacs-lisp/regexp-opt.el b/lisp/emacs-lisp/regexp-opt.el
index 06dea3c8433eb48649e25c62e699c4df01be7a17..9e95eeb8fc9d6bb8ea968de7e93945b95cabcff9 100644 (file)
--- a/lisp/emacs-lisp/regexp-opt.el
+++ b/lisp/emacs-lisp/regexp-opt.el
@@ -102,6 +102,7 @@ by \\=\\< and \\>."
     ;; Recurse on the sorted list.
     (let* ((max-lisp-eval-depth (* 1024 1024))
           (completion-ignore-case nil)
+          (completion-regexp-list nil)
           (words (eq paren 'words))
           (open (cond ((stringp paren) paren) (paren "\\(")))
           (sorted-strings (sort (copy-sequence strings) 'string-lessp))